! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Monitor.f90
! Time                 : Mon Apr 20 15:56:11 2020
! Working directory    : /n/home08/kbates/Aromatics/SAPRC_edits_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'IMAE           ','LVOC           ','CO2            ', &
     'DHDN           ','ISN1OG         ','LISOPOH        ', &
     'LISOPNO3       ','PYAC           ','RNO3           ', &
     'PAFG4          ','PAFG5          ','XC             ', &
     'XN             ','xRNO3          ','ROOH           ', &
     'RCOOH          ','LBENZ          ','LTOLU          ', &
     'LXYLE          ','PGLYX          ','PCH2O          ', &
     'PMGLY          ','PPHEN          ','PAFG1          ', &
     'PAFG2          ','PAFG3          ','PRAOOH         ', &
     'PCATL          ','PPROD2         ','PR6OOH         ', &
     'PBALD          ','PCRES          ','PXYNL          ', &
     'PBACL          ','PIPRD          ','PNPHE          ', &
     'PACTA          ','PHCOOH         ','O1D            ', &
     'CH4m           ','C3H8           ','DHDC           ', &
     'N2O5           ','PMNN           ','PPN            ', &
     'CH4            ','COm            ','IEPOXD         ', &
     'IEPOXA         ','ALK4           ','C2H6           ', &
     'IEPOXB         ','MAP            ','NPHE           ', &
     'MPN            ','IMAO3          ','PBZN           ', &
     'MPNm           ','BACL           ','xAFG3          ', &
     'xNO2           ','xMO2           ','xMACO3         ', &
     'xACET          ','xMACR          ','xMVK           ', &
     'MP             ','RA3P           ','RB3P           ', &
     'MPm            ','ETP            ','HNO2           ', &
     'HNO4           ','xAFG4          ','xIPRD          ', &
     'BENZ           ','xOH            ','xBALD          ', &
     'yROOH          ','H2             ','xPROD2         ', &
     'PAN            ','RP             ','TOLU           ', &
     'xBACL          ','xALD2          ','O              ', &
     'xMEK           ','xRCO3          ','xCH2O          ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &
     'PP             ','PRPN           ','XYLE           ', &
     'xCO            ','xAFG1          ','xAFG2          ', &
     'EOH            ','H2O2           ','xMCO3          ', &
     'R4P            ','ATOOH          ','HPALD          ', &
     'xRCHO          ','DHPCARP        ','xGLYX          ', &
     'xMGLY          ','RIPB           ','VRP            ', &
     'HCOCO3         ','IAP            ','MRP            ', &
     'HC187          ','HPC52O2        ','MOBA           ', &
     'DHMOB          ','PHEN           ','xHO2           ', &
     'XYNL           ','HCOOH          ','RIPA           ', &
     'RIPD           ','AFG5           ','yRAOOH         ', &
     'ISNP           ','R6OOH          ','MAOP           ', &
     'ETHLN          ','INPN           ','MVKOO          ', &
     'NPMN           ','CATL           ','CH3CHOO        ', &
     'GAOO           ','MOBAOO         ','zRNO3          ', &
     'MOHm           ','MGLYOO         ','DIBOO          ', &
     'MACRNO2        ','IPMN           ','ROH            ', &
     'MGLOO          ','BALD           ','MACROO         ', &
     'ISOPNB         ','CRES           ','ACTA           ', &
     'CH2OO          ','ISOP           ','PRPE           ', &
     'MVKN           ','ISNOHOO        ','IEPOXOO        ', &
     'ISNOOB         ','MOH            ','ACET           ', &
     'MACRN          ','ISOPNDO2       ','GLYC           ', &
     'A3O2           ','MAN2           ','ISNOOA         ', &
     'PROPNN         ','ISOPNBO2       ','HNO3           ', &
     'CH2Om          ','MAOPO2         ','AFG4           ', &
     'B3O2           ','ISOPND         ','VRO2           ', &
     'PO2            ','HC5OO          ','NMAO3          ', &
     'PRN1           ','ETO2           ','KO2            ', &
     'HAC            ','MRO2           ','ISN1           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(40) :: SPC_NAMES_2 = (/ &
     'R4N1           ','HC5            ','RIO2           ', &
     'GLYX           ','INO2           ','R4O2           ', &
     'R4N2           ','CH2O           ','ATO2           ', &
     'MGLY           ','yR6OOH         ','BZO            ', &
     'ALD2           ','MACR           ','RAOOH          ', &
     'AFG2           ','AFG1           ','PROD2          ', &
     'RCHO           ','MEK            ','MVK            ', &
     'CO             ','BZCO3          ','IPRD           ', &
     'MO2m           ','NO3            ','O3             ', &
     'NO2            ','MCO3           ','RO2C           ', &
     'NO             ','OH             ','MO2            ', &
     'RCO3           ','MACO3          ','HO2            ', &
     'AFG3           ','RO2XC          ','H2O            ', &
     'O2             ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(220) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2 /)

  INTEGER, PARAMETER, DIMENSION(220) :: LOOKAT = (/ &
       1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, &
      13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, &
      25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, &
      37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, &
      49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, &
      61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, &
      73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, &
      85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, &
      97, 98, 99,100,101,102,103,104,105,106,107,108, &
     109,110,111,112,113,114,115,116,117,118,119,120, &
     121,122,123,124,125,126,127,128,129,130,131,132, &
     133,134,135,136,137,138,139,140,141,142,143,144, &
     145,146,147,148,149,150,151,152,153,154,155,156, &
     157,158,159,160,161,162,163,164,165,166,167,168, &
     169,170,171,172,173,174,175,176,177,178,179,180, &
     181,182,183,184,185,186,187,188,189,190,191,192, &
     193,194,195,196,197,198,199,200,201,202,203,204, &
     205,206,207,208,209,210,211,212,213,214,215,216, &
     217,218,219,220 /)

  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '             O --> O3                                                                               ', &
     '        O + O3 --> O2                                                                               ', &
     '        O + NO --> NO2                                                                              ', &
     '       O + NO2 --> NO                                                                               ', &
     '       O + NO2 --> NO3                                                                              ', &
     '           O1D --> O                                                                                ', &
     '       O3 + NO --> NO2                                                                              ', &
     '      O3 + NO2 --> NO3                                                                              ', &
     '          2 NO --> 2 NO2                                                                            ', &
     '      NO3 + NO --> 2 NO2                                                                            ', &
     '     NO3 + NO2 --> NO2 + NO                                                                         ', &
     '     NO3 + NO2 --> N2O5                                                                             ', &
     '           O1D --> 2 OH                                                                             ', &
     '       O3 + OH --> HO2                                                                              ', &
     '       H2 + OH --> HO2                                                                              ', &
     '     H2O2 + OH --> HO2                                                                              ', &
     '      O3 + HO2 --> OH                                                                               ', &
     '      OH + HO2 --> O2                                                                               ', &
     '         2 HO2 --> H2O2                                                                             ', &
     '       NO + OH --> HNO2                                                                             ', &
     '      NO2 + OH --> HNO3                                                                             ', &
     '      NO3 + OH --> NO2 + HO2                                                                        ', &
     '      NO + HO2 --> NO2 + OH                                                                         ', &
     '     NO2 + HO2 --> HNO4                                                                             ', &
     '     HNO4 + OH --> NO2                                                                              ', &
     '     NO3 + HO2 --> NO2 + OH                                                                         ', &
     '     HNO2 + OH --> NO2                                                                              ', &
     '     HNO3 + OH --> NO3                                                                              ', &
     '            O3 --> O1D                                                                              ', &
     '            O3 --> O                                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '          H2O2 --> 2 OH                                                                             ', &
     '           NO2 --> O + NO                                                                           ', &
     '           NO3 --> NO                                                                               ', &
     '           NO3 --> O + NO2                                                                          ', &
     '          HNO2 --> NO + OH                                                                          ', &
     '          HNO3 --> NO2 + OH                                                                         ', &
     '         2 NO3 --> 2 NO2 + O2                                                                       ', &
     '          N2O5 --> NO3 + NO2 + O2                                                                   ', &
     '          HNO4 --> 0.05 NO3 + 0.95 NO2 + 0.05 OH + 0.95 HO2                                         ', &
     '          N2O5 --> NO3 + NO2                                                                        ', &
     '          HNO4 --> NO2 + HO2                                                                        ', &
     '      CH4 + OH --> MO2 + H2O                                                                        ', &
     '      NO + MO2 --> CH2O + NO2 + HO2                                                                 ', &
     '     MO2 + HO2 --> MP + O2                                                                          ', &
     '         2 MO2 --> MOH + CH2O + O2                                                                  ', &
     '         2 MO2 --> 2 CH2O + 2 HO2                                                                   ', &
     '     NO2 + MO2 --> MPN                                                                              ', &
     '           MPN --> NO2 + MO2                                                                        ', &
     '       MP + OH --> MO2 + H2O                                                                        ', &
     '       MP + OH --> CH2O + OH + H2O                                                                  ', &
     '     CH2O + OH --> PCH2O + CO + HO2 + H2O                                                           ', &
     '    CH2O + NO3 --> HNO3 + CO + HO2                                                                  ', &
     '      MOH + OH --> CH2O + HO2                                                                       ', &
     '       CO + OH --> CO2 + HO2                                                                        ', &
     '            MP --> CH2O + OH + HO2                                                                  ', &
     '          CH2O --> PCH2O + CO + 2 HO2                                                               ', &
     '          CH2O --> PCH2O + H2 + CO                                                                  ', &
     '           MPN --> CH2O + NO3 + HO2                                                                 ', &
     '           MPN --> NO2 + MO2 + O2                                                                   ', &
     '     CH4m + OH --> MO2m + H2O                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '     MO2m + NO --> CH2Om + NO2 + HO2                                                                ', &
     '    MO2m + HO2 --> MPm + O2                                                                         ', &
     '        2 MO2m --> MOHm + CH2Om + O2                                                                ', &
     '        2 MO2m --> 2 CH2Om + 2 HO2                                                                  ', &
     '    MO2m + MO2 --> 0.5 MOHm + 0.5 MOH + 0.5 CH2Om + 0.5 CH2O                                        ', &
     '    MO2m + MO2 --> CH2Om + CH2O + 2 HO2                                                             ', &
     '    MO2m + NO2 --> MPNm                                                                             ', &
     '          MPNm --> MO2m + NO2                                                                       ', &
     '      MPm + OH --> MO2m + H2O                                                                       ', &
     '      MPm + OH --> CH2Om + OH + H2O                                                                 ', &
     '    CH2Om + OH --> COm + HO2 + H2O                                                                  ', &
     '   CH2Om + NO3 --> COm + HNO3 + HO2                                                                 ', &
     '     MOHm + OH --> CH2Om + HO2                                                                      ', &
     '      COm + OH --> CO2 + HO2                                                                        ', &
     '           MPm --> CH2Om + OH + HO2                                                                 ', &
     '         CH2Om --> COm + 2 HO2                                                                      ', &
     '         CH2Om --> COm + H2                                                                         ', &
     '          MPNm --> CH2Om + NO3 + HO2                                                                ', &
     '          MPNm --> MO2m + NO2 + O2                                                                  ', &
     '   A3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.75 RCHO + HO2 ... etc.                     ', &
     '    PO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.16 HAC + 0.5 CH2O ... etc.                 ', &
     '   ETO2 + MO2m --> 0.25 EOH + 0.25 MOHm + 0.75 CH2Om + 0.75 ALD2 + HO2 ... etc.                     ', &
     '   R4O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.16 ACET + 0.03 A3O2 + 0.75 CH2Om ... etc.               ', &
     '   R4N1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.15 R4O2 + 0.2 CH2O ... etc.                ', &
     '   ATO2 + MO2m --> 0.5 PMGLY + 0.5 MOHm + 0.5 CH2Om + 0.2 HAC + 0.5 MGLY ... etc.                   ', &
     '    KO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 ALD2 + 0.25 MEK ... etc.                 ', &
     '   B3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 ACET + 0.75 CH2Om + HO2 ... etc.                     ', &
     '   PRN1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 CH2O + 0.5 ALD2 ... etc.                 ', &
     '   MO2m + RCO3 --> CH2Om + ETO2 + HO2                                                               ', &
     '   MO2m + RCO3 --> RCOOH + CH2Om                                                                    ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '   MO2m + MCO3 --> CH2Om + MO2 + HO2                                                                ', &
     '   MO2m + MCO3 --> ACTA + CH2Om                                                                     ', &
     '    ATOOH + OH --> ATO2 + H2O                                                                       ', &
     '    ATOOH + OH --> PMGLY + MGLY + OH + H2O                                                          ', &
     '    HCOOH + OH --> CO2 + PHCOOH + HO2 + H2O                                                         ', &
     '     ALD2 + OH --> 0.05 CH2O + 0.05 CO + 0.95 MCO3 + 0.05 HO2 + H2O                                 ', &
     '    ALD2 + NO3 --> HNO3 + MCO3                                                                      ', &
     '    NO2 + MCO3 --> PAN                                                                              ', &
     '           PAN --> NO2 + MCO3                                                                       ', &
     '     MCO3 + NO --> CO2 + NO2 + MO2                                                                  ', &
     '     C2H6 + OH --> ETO2 + H2O                                                                       ', &
     '     ETO2 + NO --> ALD2 + NO2 + HO2                                                                 ', &
     '     C3H8 + OH --> B3O2                                                                             ', &
     '     C3H8 + OH --> A3O2                                                                             ', &
     '     A3O2 + NO --> RCHO + NO2 + HO2                                                                 ', &
     '      PO2 + NO --> CH2O + ALD2 + NO2 + HO2                                                          ', &
     '     ALK4 + OH --> R4O2                                                                             ', &
     '     R4O2 + NO --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '     R4O2 + NO --> R4N2                                                                             ', &
     '     R4N1 + NO --> 0.57 CH2O + 0.86 ALD2 + 0.57 RCHO + 2 NO2                                        ', &
     '     ATO2 + NO --> CH2O + NO2 + MCO3                                                                ', &
     '      KO2 + NO --> 0.07 R4N2 + 0.93 ALD2 + 0.93 NO2 + 0.93 MCO3                                     ', &
     '     RIO2 + NO --> 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.058 HC5 ... etc.                    ', &
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', &
     '     VRO2 + NO --> 0.35 PMGLY + 0.12 MVKN + 0.53 GLYC + 0.35 CH2O + 0.35 MGLY ... etc.              ', &
     '     MRO2 + NO --> 0.122 PMGLY + 0.15 MACRN + 0.728 HAC + 0.122 CH2O + 0.122 MGLY ... etc.          ', &
     '          MRO2 --> HAC + CO + OH                                                                    ', &
     '     MAN2 + NO --> 0.5 PMGLY + 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 CO ... etc.                   ', &
     '     B3O2 + NO --> ACET + NO2 + HO2                                                                 ', &
     '     INO2 + NO --> 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK ... etc.                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '    INO2 + NO3 --> 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '    ISN1 + NO3 --> 0.4 ISNOOB + 0.6 ISNOOA + 0.6 HNO3                                               ', &
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 0.96 PROPNN + CO + NO2 + HO2                                       ', &
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 PROPNN + CO + NO2 + HO2                                       ', &
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 0.96 IPMN                                                          ', &
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.25 RCOOH + 0.75 RP + 0.25 O3 + 0.96 NO2 ... etc.                 ', &
     '  ISNOOB + NO3 --> 0.04 ISN1OG + 0.94 PROPNN + GLYX + 2 NO2                                         ', &
     '   ISNOOB + NO --> 0.04 ISN1OG + 0.9 PROPNN + 0.94 GLYX + 1.88 NO2                                  ', &
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.66 PROPNN + 0.7 GLYX + 0.75 CH2O ... etc.             ', &
     '     ISN1 + O3 --> 0.25 MOH + 0.3 PROPNN + 0.7 GLYX + 0.75 CH2O + 0.7 NO2 ... etc.                  ', &
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', &
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.894 PROPNN + 0.919 GLYX + 0.934 HO2 ... etc.                     ', &
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.66 PROPNN + 0.7 GLYX + 0.75 CH2O ... etc.             ', &
     '        2 INO2 --> 0.5 ISOPND + 1.2 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR ... etc.               ', &
     '     PRN1 + NO --> CH2O + ALD2 + 2 NO2                                                              ', &
     '    ALK4 + NO3 --> HNO3 + R4O2                                                                      ', &
     '     R4N2 + OH --> R4N1 + H2O                                                                       ', &
     '     ACTA + OH --> CO2 + PACTA + MO2 + H2O                                                          ', &
     '     RCHO + OH --> RCO3 + H2O                                                                       ', &
     '    NO2 + RCO3 --> PPN                                                                              ', &
     '           PPN --> NO2 + RCO3                                                                       ', &
     '   IMAO3 + NO2 --> IPMN                                                                             ', &
     '   NMAO3 + NO2 --> NPMN                                                                             ', &
     '          IPMN --> IMAO3 + NO2                                                                      ', &
     '          NPMN --> NMAO3 + NO2                                                                      ', &
     '     NO + RCO3 --> ETO2 + NO2                                                                       ', &
     '    NMAO3 + NO --> CO2 + 0.5 CH2O + 0.5 CO + NO2 + 0.5 MCO3 + 0.5 MO2                               ', &
     '    RCHO + NO3 --> HNO3 + RCO3                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '     ACET + OH --> ATO2 + H2O                                                                       ', &
     '    A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.75 RCHO + HO2                                ', &
     '     PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.16 HAC + 1.25 CH2O + 0.5 ALD2 ... etc.                   ', &
     '    R4O2 + HO2 --> R4P                                                                              ', &
     '    R4N1 + HO2 --> R4N2                                                                             ', &
     '    ATO2 + HO2 --> 0.85 ATOOH + 0.15 CH2O + 0.15 MCO3 + 0.15 OH                                     ', &
     '     KO2 + HO2 --> 0.85 ATOOH + 0.15 ALD2 + 0.15 MCO3 + 0.15 OH                                     ', &
     '    RIO2 + HO2 --> 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.063 CH2O + 0.025 MACR ... etc.          ', &
     '    VRO2 + HO2 --> 0.102 PMGLY + 0.1 VRP + 0.578 GLYC + 0.102 CH2O + 0.102 MGLY ... etc.            ', &
     '    MRO2 + HO2 --> MRP                                                                              ', &
     '    MAN2 + HO2 --> 0.075 PMGLY + 0.85 MAOP + 0.075 PROPNN + 0.075 CH2O ... etc.                     ', &
     '    B3O2 + HO2 --> RB3P                                                                             ', &
     '    INO2 + HO2 --> INPN                                                                             ', &
     '    PRN1 + HO2 --> PRPN                                                                             ', &
     '      MEK + OH --> KO2 + H2O                                                                        ', &
     '    ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                                ', &
     '     MEK + NO3 --> HNO3 + KO2                                                                       ', &
     '    R4O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.16 ACET + 0.03 A3O2 + 0.09 B3O2 ... etc.                 ', &
     '    R4N1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 ... etc.                 ', &
     '    ATO2 + MO2 --> 0.5 PMGLY + 0.5 MOH + 0.2 HAC + 0.5 CH2O + 0.5 MGLY ... etc.                     ', &
     '     KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.5 ALD2 + 0.25 MEK ... etc.                   ', &
     '    RIO2 + MO2 --> 0.24 ROH + 0.24 MOH + 0.3 HC5 + 1.22 CH2O + 0.18 MACR ... etc.                   ', &
     '        2 RIO2 --> 0.09 DIBOO + 1.11 HC5 + 0.75 CH2O + 0.29 MACR + 0.45 MVK ... etc.                ', &
     '   HC5OO + MO2 --> 0.09 H2 + 0.25 ROH + 0.25 MOH + 0.13 GLYC + 0.18 HAC ... etc.                    ', &
     '    VRO2 + MO2 --> 0.14 PMGLY + 0.25 ROH + 0.25 MOH + 0.36 GLYC + 0.89 CH2O ... etc.                ', &
     '    MRO2 + MO2 --> 0.255 PMGLY + 0.15 ROH + 0.595 HAC + 1.255 CH2O + 0.255 MGLY ... etc.            ', &
     '    MAN2 + MO2 --> 0.375 PMGLY + 0.375 PROPNN + 0.25 R4N2 + 0.625 CH2O ... etc.                     ', &
     '    B3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 ACET + 0.75 CH2O + HO2                                ', &
     '    INO2 + MO2 --> 0.25 MOH + 0.25 ISOPND + 0.6 ISN1 + 0.115 HC5 + 0.785 CH2O ... etc.              ', &
     '    PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.5 ALD2 + 0.25 RCHO ... etc.                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '      EOH + OH --> ALD2 + HO2                                                                       ', &
     '      ROH + OH --> RCHO + HO2                                                                       ', &
     '        2 ETO2 --> 2 ALD2 + 2 HO2                                                                   ', &
     '        2 ETO2 --> EOH + ALD2                                                                       ', &
     '    ETO2 + HO2 --> ETP                                                                              ', &
     '    A3O2 + HO2 --> RA3P                                                                             ', &
     '     PO2 + HO2 --> PP                                                                               ', &
     '    MCO3 + HO2 --> 0.41 MAP + 0.15 ACTA + 0.15 O3 + 0.44 OH + 0.44 MO2 ... etc.                     ', &
     '    RCO3 + HO2 --> 0.15 RCOOH + 0.41 RP + 0.44 ETO2 + 0.15 O3 + 0.44 OH ... etc.                    ', &
     '   NMAO3 + HO2 --> 0.41 MAOP + 0.59 CH2O + 0.39 CO + 0.15 O3 + 0.44 OH ... etc.                     ', &
     '     PRPE + OH --> PO2                                                                              ', &
     '     PRPE + O3 --> 0.1 CH4 + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 CH2O + 0.5 ALD2 ... etc.               ', &
     '     NPMN + OH --> HAC + CO + NO2                                                                   ', &
     '     IPMN + OH --> 0.781 IMAE + 0.19 PAN + 0.03 HAC + 0.19 CH2O + 0.03 CO ... etc.                  ', &
     '     NPMN + O3 --> CH2O + NO3 + MCO3                                                                ', &
     '     IMAE + OH --> OH                                                                               ', &
     '     GLYC + OH --> 0.361 CO2 + 0.134 PGLYX + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O ... etc.         ', &
     '     GLYC + OH --> HCOOH + CO + OH                                                                  ', &
     '    PRPE + NO3 --> PRN1                                                                             ', &
     '     GLYX + OH --> 2 CO + HO2                                                                       ', &
     '     MGLY + OH --> CO + MCO3                                                                        ', &
     '    GLYX + NO3 --> HNO3 + 2 CO + HO2                                                                ', &
     '    MGLY + NO3 --> HNO3 + CO + MCO3                                                                 ', &
     '     ISOP + OH --> LISOPOH + RIO2                                                                   ', &
     '      MVK + OH --> VRO2                                                                             ', &
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ', &
     '      HAC + OH --> PMGLY + MGLY + HO2                                                               ', &
     '      HAC + OH --> 0.5 CO2 + 0.5 HCOOH + 0.5 ACTA + 0.5 CO + OH + 0.5 MO2 ... etc.                  ', &
     '   A3O2 + MCO3 --> RCHO + MO2 + HO2                                                                 ', &
     '    PO2 + MCO3 --> CH2O + ALD2 + MO2 + HO2                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '   A3O2 + MCO3 --> ACTA + RCHO                                                                      ', &
     '    PO2 + MCO3 --> ACTA + 0.65 HAC + 0.35 RCHO                                                      ', &
     '     ISOP + O3 --> 0.044 MVKOO + 0.044 MACROO + 0.11 CH2OO + 0.102 PRPE ... etc.                    ', &
     '      MVK + O3 --> 0.5 PMGLY + 0.12 MGLOO + 0.12 CH2OO + 0.6 CH2O + 0.5 MGLY ... etc.               ', &
     '     MACR + O3 --> 0.88 PMGLY + 0.022 MGLYOO + 0.326 CH2OO + 0.12 CH2O ... etc.                     ', &
     '    ISOP + NO3 --> LISOPNO3 + INO2                                                                  ', &
     '    MACR + NO3 --> MAN2                                                                             ', &
     '    MACR + NO3 --> 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 CO ... etc.                     ', &
     '    MO2 + RCO3 --> ETO2 + CH2O + HO2                                                                ', &
     '   NMAO3 + MO2 --> 2 CH2O + MCO3 + HO2                                                              ', &
     '    MO2 + RCO3 --> RCOOH + CH2O                                                                     ', &
     '   NMAO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '     INPN + OH --> MEK + NO2 + OH                                                                   ', &
     '     INPN + OH --> 0.36 INO2 + 0.64 R4N2 + 0.64 OH                                                  ', &
     '     PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH                                             ', &
     '      ETP + OH --> 0.36 ETO2 + 0.64 ALD2 + 0.64 OH                                                  ', &
     '     RA3P + OH --> 0.36 A3O2 + 0.64 RCHO + 0.64 OH                                                  ', &
     '     RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH                                               ', &
     '      R4P + OH --> 0.209 R4O2 + 0.791 RCHO + 0.791 OH                                               ', &
     '       RP + OH --> RCO3                                                                             ', &
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', &
     '     RIPA + OH --> 0.007 LVOC + 0.243 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O ... etc.               ', &
     '     RIPB + OH --> 0.007 LVOC + 0.513 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O ... etc.                 ', &
     '     RIPD + OH --> 0.007 LVOC + 0.743 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O ... etc.               ', &
     '     RIPA + OH --> 0.007 LVOC + 0.578 IEPOXA + 0.272 IEPOXB + 0.143 HC5OO ... etc.                  ', &
     '     RIPB + OH --> 0.68 IEPOXA + 0.32 IEPOXB + OH                                                   ', &
     '     RIPD + OH --> 0.007 LVOC + 0.5 IEPOXD + 0.493 HC5OO + 0.5 OH                                   ', &
     '     LVOC + OH --> OH                                                                               ', &
     '   IEPOXA + OH --> IEPOXOO                                                                          ', &
     '   IEPOXB + OH --> IEPOXOO                                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '   IEPOXD + OH --> IEPOXOO                                                                          ', &
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.44 HC187 + 0.278 HCOOH + 0.025 GLYC + 0.085 HAC ... etc.           ', &
     '  IEPOXOO + NO --> 0.858 CO2 + 0.473 HC187 + 0.142 HCOOH + 0.088 GLYC + 0.117 HAC ... etc.          ', &
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', &
     '      VRP + OH --> 0.209 VRO2 + 0.791 MEK + 0.791 OH                                                ', &
     '      MRP + OH --> MRO2                                                                             ', &
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', &
     '     MAOP + OH --> NMAO3                                                                            ', &
     '     MAOP + OH --> MAOPO2                                                                           ', &
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + OH + MO2                                                           ', &
     ' MAOPO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  MAOPO2 + MO2 --> 0.7 CO2 + 0.3 ROH + 0.7 HAC + CH2O + 0.7 OH + 0.7 HO2 ... etc.                   ', &
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', &
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', &
     '   MAOPO2 + NO --> CO2 + HAC + NO2 + OH                                                             ', &
     '   MAOPO2 + NO --> HNO3                                                                             ', &
     '      MAP + OH --> MCO3                                                                             ', &
     '    C2H6 + NO3 --> HNO3 + ETO2                                                                      ', &
     '      HC5 + O3 --> 0.055 GAOO + 0.055 MGLYOO + 0.5 GLYC + 0.445 CH2O + 0.5 MGLY ... etc.            ', &
     '        2 MCO3 --> 2 MO2                                                                            ', &
     '    MCO3 + MO2 --> CH2O + MO2 + HO2                                                                 ', &
     '    MCO3 + MO2 --> ACTA + CH2O                                                                      ', &
     '   R4O2 + MCO3 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '   ATO2 + MCO3 --> CH2O + MCO3 + MO2                                                                ', &
     '    KO2 + MCO3 --> ALD2 + MCO3 + MO2                                                                ', &
     '   RIO2 + MCO3 --> CO2 + 0.113 DIBOO + 0.14 HC5 + 0.747 CH2O + 0.294 MACR ... etc.                  ', &
     '  HC5OO + MCO3 --> 0.17 MOBA + 0.29 DHMOB + 0.234 GLYC + 0.216 HAC + 0.216 GLYX ... etc.            ', &
     '   VRO2 + MCO3 --> 0.4 PMGLY + 0.6 GLYC + 0.4 CH2O + 0.4 MGLY + 0.6 MCO3 ... etc.                   ', &
     '   MRO2 + MCO3 --> 0.143 PMGLY + 0.857 HAC + 0.143 CH2O + 0.143 MGLY + 0.857 CO ... etc.            ', &
     '   B3O2 + MCO3 --> ACET + MO2 + HO2                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '   R4N1 + MCO3 --> 0.3 R4O2 + 0.39 CH2O + 0.75 ALD2 + 0.57 RCHO + NO2 + MO2 ... etc.                ', &
     '   MAN2 + MCO3 --> CO2 + 0.5 PMGLY + 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 CO ... etc.             ', &
     '   INO2 + MCO3 --> 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '   PRN1 + MCO3 --> CH2O + ALD2 + NO2 + MO2                                                          ', &
     '   R4O2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   ATO2 + MCO3 --> PMGLY + ACTA + MGLY                                                              ', &
     '    KO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   RIO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  HC5OO + MCO3 --> ACTA + MEK                                                                       ', &
     '   VRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   MRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   R4N1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   MAN2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   INO2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   PRN1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   B3O2 + MCO3 --> ACTA + ACET                                                                      ', &
     '   ETO2 + MCO3 --> ALD2 + MO2 + HO2                                                                 ', &
     '   ETO2 + MCO3 --> ACTA + ALD2                                                                      ', &
     '   MCO3 + RCO3 --> ETO2 + MO2                                                                       ', &
     '  NMAO3 + MCO3 --> CH2O + MCO3 + MO2                                                                ', &
     '   ISOPNB + O3 --> 0.36 CO2 + 0.16 HCOOH + 0.21 MVKN + 0.32 MACRN + 0.42 PROPNN ... etc.            ', &
     '   ISOPND + O3 --> 0.63 CO2 + 0.09 EOH + 0.26 ETHLN + 0.24 MOH + 0.24 GLYC ... etc.                 ', &
     '      HC5 + OH --> HC5OO                                                                            ', &
     '    HC5OO + NO --> 0.17 MOBA + 0.29 DHMOB + 0.234 GLYC + 0.216 HAC + 0.216 GLYX ... etc.            ', &
     '    HC5OO + NO --> HNO3                                                                             ', &
     '   HC5OO + HO2 --> 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 OH + 0.9 HO2                                 ', &
     '   ISOPND + OH --> 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                              ', &
     '   ISOPNB + OH --> 0.067 IEPOXA + 0.033 IEPOXB + 0.9 ISOPNBO2 + 0.1 NO2 ... etc.                    ', &
     ' ISOPNDO2 + NO --> 0.27 DHDN + 0.057 HCOOH + 0.21 ETHLN + 0.075 MVKN + 0.019 MACRN ... etc.         ', &
     'ISOPNDO2 + HO2 --> 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.01 MACRN + 0.23 GLYC ... etc.               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     ' ISOPNBO2 + NO --> 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.09 HAC ... etc.               ', &
     'ISOPNBO2 + HO2 --> 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.06 HAC ... etc.               ', &
     '     ISNP + OH --> 0.193 ISOPNDO2 + 0.193 ISOPNBO2 + 0.612 R4N1 + 0.612 OH ... etc.                 ', &
     '     MVKN + OH --> 0.35 PYAC + 0.65 PMGLY + 0.65 HCOOH + 0.35 CH2O + 0.65 MGLY ... etc.             ', &
     '    MACRN + OH --> MACRNO2                                                                          ', &
     '  MACRNO2 + NO --> 0.93 CO2 + 0.07 PMGLY + 0.07 HCOOH + 0.08 ACTA + 0.85 HAC ... etc.               ', &
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.07 PMGLY + 0.07 HCOOH + 0.08 ACTA + 0.85 HAC ... etc.               ', &
     ' MACRNO2 + NO2 --> PMNN                                                                             ', &
     '          PMNN --> MACRNO2 + NO2                                                                    ', &
     '    DHMOB + OH --> 0.5 HAC + 0.5 MEK + 1.5 CO + HO2                                                 ', &
     '    DIBOO + NO --> 0.52 GLYC + 0.48 HAC + 0.48 GLYX + 0.52 MGLY + NO2 + HO2 ... etc.                ', &
     '    DIBOO + NO --> HNO3                                                                             ', &
     '   DIBOO + HO2 --> 0.85 R4P + 0.078 GLYC + 0.072 HAC + 0.072 GLYX + 0.078 MGLY ... etc.             ', &
     '     MOBA + OH --> MOBAOO                                                                           ', &
     '   MOBAOO + NO --> CO2 + RCHO + NO2 + HO2                                                           ', &
     '   MOBAOO + NO --> HNO3                                                                             ', &
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 R4P + 0.5 RCHO + 0.5 OH + 0.5 HO2                                  ', &
     '     MOBA + O3 --> CO2 + MEK + OH + HO2                                                             ', &
     '    ETHLN + OH --> CO2 + CH2O + NO2                                                                 ', &
     '   PROPNN + OH --> PMGLY + MGLY + NO2                                                               ', &
     '    CH2OO + CO --> CH2O                                                                             ', &
     '    CH2OO + NO --> CH2O + NO2                                                                       ', &
     '   CH2OO + NO2 --> CH2O + NO3                                                                       ', &
     '   CH2OO + H2O --> H2O2 + CH2O                                                                      ', &
     '   CH2OO + H2O --> HCOOH                                                                            ', &
     '   MACROO + CO --> MACR                                                                             ', &
     '   MACROO + NO --> MACR + NO2                                                                       ', &
     '  MACROO + NO2 --> MACR + NO3                                                                       ', &
     '  MACROO + H2O --> MRP                                                                              ', &
     '  MACROO + H2O --> H2O2 + MACR                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '    MVKOO + CO --> MVK                                                                              ', &
     '    MVKOO + NO --> MVK + NO2                                                                        ', &
     '   MVKOO + NO2 --> MVK + NO3                                                                        ', &
     '   MVKOO + H2O --> H2O2 + MVK                                                                       ', &
     '   MGLYOO + CO --> PMGLY + MGLY                                                                     ', &
     '   MGLYOO + NO --> PMGLY + MGLY + NO2                                                               ', &
     '  MGLYOO + NO2 --> PMGLY + MGLY + NO3                                                               ', &
     '  MGLYOO + H2O --> PMGLY + H2O2 + MGLY                                                              ', &
     '    MGLOO + CO --> PMGLY + MGLY                                                                     ', &
     '    MGLOO + NO --> PMGLY + MGLY + NO2                                                               ', &
     '   MGLOO + NO2 --> PMGLY + MGLY + NO3                                                               ', &
     '   MGLOO + H2O --> MCO3 + MO2                                                                       ', &
     '   MGLOO + H2O --> PMGLY + H2O2 + MGLY                                                              ', &
     '  CH3CHOO + CO --> ALD2                                                                             ', &
     '  CH3CHOO + NO --> ALD2 + NO2                                                                       ', &
     ' CH3CHOO + NO2 --> ALD2 + NO3                                                                       ', &
     ' CH3CHOO + H2O --> H2O2 + ALD2                                                                      ', &
     ' CH3CHOO + H2O --> ACTA                                                                             ', &
     '     GAOO + CO --> GLYC                                                                             ', &
     '     GAOO + NO --> GLYC + NO2                                                                       ', &
     '    GAOO + NO2 --> GLYC + NO3                                                                       ', &
     '    GAOO + H2O --> H2O2 + GLYC                                                                      ', &
     '    GAOO + H2O --> HAC                                                                              ', &
     '    HC187 + OH --> CH2O + 0.5 MGLY + 0.5 CO + 0.5 MCO3 + 0.5 HO2                                    ', &
     '    HPALD + OH --> 0.085 CO2 + 0.365 HPC52O2 + 0.085 GLYX + 0.55 CH2O + 0.55 MGLY ... etc.          ', &
     '  DHPCARP + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     '  HPC52O2 + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     ' DHPCARP + HO2 --> RCOOH                                                                            ', &
     ' HPC52O2 + HO2 --> RCOOH                                                                            ', &
     '       DHPCARP --> RCOOH + CO + OH                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '       DHPCARP --> DHDC                                                                             ', &
     '     BENZ + OH --> - -0.403 XC + LBENZ + 0.155 xAFG1 + 0.155 xAFG2 + 0.31 xGLYX ... etc.            ', &
     '     TOLU + OH --> - -0.176 XC + LTOLU + 0.065 xBALD + 0.292 xAFG1 + 0.248 xAFG2 ... etc.           ', &
     '     XYLE + OH --> 0.538 XC + LXYLE + 0.04 xBALD + 0.308 xAFG1 + 0.252 xAFG2 ... etc.               ', &
     '     XYLE + OH --> 0.294 XC + LXYLE + 0.045 xBALD + 0.19 xBACL + 0.273 xAFG1 ... etc.               ', &
     '     XYLE + OH --> 0.407 XC + LXYLE + 0.37 xAFG4 + 0.085 xBALD + 0.164 xAFG1 ... etc.               ', &
     '     AFG4 + OH --> PAFG4 + yROOH + 0.902 xMCO3 + 0.902 xRCHO + 0.098 zRNO3 ... etc.                 ', &
     '     AFG5 + OH --> PAFG5 + 0.034 xBACL + 0.019 xRCO3 + 0.049 xCO + 0.124 xMCO3 ... etc.             ', &
     '     AFG5 + O3 --> PAFG5 + 1.268 XC + 0.139 RCOOH + 0.377 PGLYX + 0.163 PMGLY ... etc.              ', &
     '     RO2C + NO --> NO2                                                                              ', &
     '    RO2C + HO2 --> CO2                                                                              ', &
     '    NO3 + RO2C --> NO2                                                                              ', &
     '        2 RO2C --> CO2                                                                              ', &
     '    NO + RO2XC --> XN                                                                               ', &
     '   HO2 + RO2XC --> CO2                                                                              ', &
     '   NO3 + RO2XC --> NO2                                                                              ', &
     '       2 RO2XC --> CO2                                                                              ', &
     '   MCO3 + RO2C --> CO2 + MO2                                                                        ', &
     '  MCO3 + RO2XC --> CO2 + MO2                                                                        ', &
     '    NO3 + RCO3 --> CO2 + yROOH + xALD2 + xHO2 + NO2 + RO2C + O2                                     ', &
     '   RO2C + RCO3 --> CO2 + yROOH + xALD2 + xHO2 + RO2C                                                ', &
     '  RCO3 + RO2XC --> CO2 + yROOH + xALD2 + xHO2 + RO2C                                                ', &
     '        2 RCO3 --> 2 CO2 + 2 yROOH + 2 xALD2 + 2 xHO2 + 2 RO2C                                      ', &
     '   BZCO3 + NO2 --> PBZN                                                                             ', &
     '          PBZN --> BZCO3 + NO2                                                                      ', &
     '    BZCO3 + NO --> CO2 + BZO + NO2 + RO2C                                                           ', &
     '   BZCO3 + HO2 --> 0.44 CO2 + 2.24 XC + 0.56 RCOOH + 0.44 BZO + 0.15 O3 ... etc.                    ', &
     '   BZCO3 + NO3 --> CO2 + BZO + NO2 + RO2C + O2                                                      ', &
     '  BZCO3 + RO2C --> CO2 + BZO + RO2C                                                                 ', &
     ' BZCO3 + RO2XC --> CO2 + BZO + RO2C                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
     '  BZCO3 + MCO3 --> 2 CO2 + BZO + RO2C + MO2                                                         ', &
     '  BZCO3 + RCO3 --> 2 CO2 + yROOH + xALD2 + xHO2 + BZO + 2 RO2C                                      ', &
     '       2 BZCO3 --> 2 CO2 + 2 BZO + 2 RO2C                                                           ', &
     '    NO + MACO3 --> CO2 + CH2O + NO2 + MCO3                                                          ', &
     '   MACO3 + HO2 --> 0.44 CO2 + 0.56 XC + 0.56 RCOOH + 0.44 CH2O + 0.15 O3 ... etc.                   ', &
     '   NO3 + MACO3 --> CO2 + CH2O + NO2 + MCO3 + O2                                                     ', &
     '    RO2C + MO2 --> 0.25 MOH + 0.75 CH2O + 0.5 HO2                                                   ', &
     '   MO2 + RO2XC --> 0.25 MOH + 0.75 CH2O + 0.5 HO2                                                   ', &
     '   BZCO3 + MO2 --> CO2 + CH2O + BZO + RO2C + HO2                                                    ', &
     '   MO2 + MACO3 --> CO2 + 2 CH2O + MCO3 + HO2                                                        ', &
     '   MO2m + RO2C --> 0.25 MOHm + 0.75 CH2Om + 0.5 HO2                                                 ', &
     '  MO2m + RO2XC --> 0.25 MOHm + 0.75 CH2Om + 0.5 HO2                                                 ', &
     '  BZCO3 + MO2m --> CO2 + CH2Om + BZO + RO2C + HO2                                                   ', &
     '  MO2m + MACO3 --> CO2 + CH2Om + CH2O + MCO3 + HO2                                                  ', &
     '  RO2C + MACO3 --> CO2 + CH2O + MCO3                                                                ', &
     ' MACO3 + RO2XC --> CO2 + CH2O + MCO3                                                                ', &
     '  MCO3 + MACO3 --> 2 CO2 + CH2O + MCO3 + MO2 + O2                                                   ', &
     '  RCO3 + MACO3 --> 2 CO2 + yROOH + xALD2 + xHO2 + CH2O + MCO3 + RO2C                                ', &
     ' BZCO3 + MACO3 --> 2 CO2 + CH2O + BZO + MCO3 + RO2C                                                 ', &
     '       2 MACO3 --> CO2 + 2 CH2O + MCO3                                                              ', &
     '     BZO + NO2 --> NPHE                                                                             ', &
     '     BZO + HO2 --> 0.1 XC + CRES                                                                    ', &
     '           BZO --> 0.1 XC + xHO2 + CRES + RO2C                                                      ', &
     '     IPRD + OH --> 0.504 XC + PIPRD + 0.332 xPROD2 + 0.129 xALD2 + 0.15 xMEK ... etc.               ', &
     '     IPRD + O3 --> 0.14 CO2 + 0.329 XC + 0.372 RCOOH + 0.023 PGLYX + 0.742 PMGLY ... etc.           ', &
     '    IPRD + NO3 --> 0.815 XC + 0.278 XN + 0.572 xRNO3 + PIPRD + 0.227 xCH2O ... etc.                 ', &
     '    PROD2 + OH --> 0.877 XC + PPROD2 + 0.007 xPROD2 + 0.083 xALD2 + 0.115 xMEK ... etc.             ', &
     '   HCOCO3 + NO --> CO2 + CO + NO2 + HO2                                                             ', &
     '  HCOCO3 + NO2 --> CO2 + CO + NO3 + HO2                                                             ', &
     '  HCOCO3 + HO2 --> 0.44 CO2 + 0.56 PGLYX + 0.56 GLYX + 0.44 CO + 0.15 O3 ... etc.                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
     '     NPHE + OH --> XN + PNPHE + BZO                                                                 ', &
     '     BALD + OH --> PBALD + BZCO3                                                                    ', &
     '    BALD + NO3 --> PBALD + HNO3 + BZCO3                                                             ', &
     '     PHEN + OH --> PPHEN + 0.052 xAFG1 + 0.052 xAFG2 + 0.104 xGLYX + 0.104 xHO2 ... etc.            ', &
     '    PHEN + NO3 --> 0.9 XN + PPHEN + 0.052 xAFG1 + 0.052 xAFG2 + 0.104 xGLYX ... etc.                ', &
     '     CRES + OH --> PCRES + 0.088 xAFG1 + 0.089 xAFG2 + 0.088 xGLYX + 0.089 xMGLY ... etc.           ', &
     '    CRES + NO3 --> 0.9 XN + PCRES + 0.088 xAFG1 + 0.089 xAFG2 + 0.089 xGLYX ... etc.                ', &
     '     XYNL + OH --> PXYNL + 0.113 xAFG1 + 0.112 xAFG2 + 0.113 xGLYX + 0.112 xMGLY ... etc.           ', &
     '    XYNL + NO3 --> 0.93 XN + PXYNL + 0.113 xAFG1 + 0.112 xAFG2 + 0.113 xGLYX ... etc.               ', &
     '     CATL + OH --> PCATL + 0.1 xAFG1 + 0.1 xAFG2 + 0.1 xGLYX + 0.1 xMGLY ... etc.                   ', &
     '    CATL + NO3 --> 0.8 XN + PCATL + 0.1 xAFG1 + 0.1 xAFG2 + 0.1 xGLYX + 0.1 xMGLY ... etc.          ', &
     '     AFG1 + OH --> 0.284 XC + PAFG1 + 0.129 xMEK + 0.334 xCO + 0.201 xMCO3 ... etc.                 ', &
     '     AFG2 + OH --> 0.284 XC + PAFG2 + 0.129 xMEK + 0.334 xCO + 0.201 xMCO3 ... etc.                 ', &
     '     OH + AFG3 --> 0.938 XC + PAFG3 + 0.231 xIPRD + 0.019 xBACL + 0.114 xCO ... etc.                ', &
     '     O3 + AFG3 --> 0.19 CO2 + 0.575 XC + 0.366 PGLYX + 0.184 PMGLY + PAFG3 ... etc.                 ', &
     '    RAOOH + OH --> 1.674 XC + 0.147 PMGLY + PRAOOH + 0.024 xOH + 0.03 xMEK ... etc.                 ', &
     '     xHO2 + NO --> NO + HO2                                                                         ', &
     '    xHO2 + HO2 --> HO2                                                                              ', &
     '    xHO2 + NO3 --> NO3 + HO2                                                                        ', &
     '    xHO2 + MO2 --> MO2 + 0.5 HO2                                                                    ', &
     '   xHO2 + MO2m --> MO2m + 0.5 HO2                                                                   ', &
     '   xHO2 + RO2C --> RO2C + 0.5 HO2                                                                   ', &
     '  xHO2 + RO2XC --> 0.5 HO2 + RO2XC                                                                  ', &
     '   xHO2 + MCO3 --> MCO3 + HO2                                                                       ', &
     '   xHO2 + RCO3 --> RCO3 + HO2                                                                       ', &
     '  xHO2 + BZCO3 --> BZCO3 + HO2                                                                      ', &
     '  xHO2 + MACO3 --> MACO3 + HO2                                                                      ', &
     '      xOH + NO --> NO + OH                                                                          ', &
     '     xOH + HO2 --> HO2                                                                              ', &
     '     xOH + NO3 --> NO3 + OH                                                                         ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
     '     xOH + MO2 --> 0.5 OH + MO2                                                                     ', &
     '    xOH + MO2m --> MO2m + 0.5 OH                                                                    ', &
     '    xOH + RO2C --> RO2C + 0.5 OH                                                                    ', &
     '   xOH + RO2XC --> 0.5 OH + RO2XC                                                                   ', &
     '    xOH + MCO3 --> MCO3 + OH                                                                        ', &
     '    xOH + RCO3 --> OH + RCO3                                                                        ', &
     '   xOH + BZCO3 --> BZCO3 + OH                                                                       ', &
     '   xOH + MACO3 --> OH + MACO3                                                                       ', &
     '     xNO2 + NO --> NO2 + NO                                                                         ', &
     '    xNO2 + HO2 --> XN + HO2                                                                         ', &
     '    xNO2 + NO3 --> NO3 + NO2                                                                        ', &
     '    xNO2 + MO2 --> 0.5 XN + 0.5 NO2 + MO2                                                           ', &
     '   xNO2 + MO2m --> 0.5 XN + MO2m + 0.5 NO2                                                          ', &
     '   xNO2 + RO2C --> 0.5 XN + 0.5 NO2 + RO2C                                                          ', &
     '  xNO2 + RO2XC --> 0.5 XN + 0.5 NO2 + RO2XC                                                         ', &
     '   xNO2 + MCO3 --> NO2 + MCO3                                                                       ', &
     '   xNO2 + RCO3 --> NO2 + RCO3                                                                       ', &
     '  xNO2 + BZCO3 --> BZCO3 + NO2                                                                      ', &
     '  xNO2 + MACO3 --> NO2 + MACO3                                                                      ', &
     '     xMO2 + NO --> NO + MO2                                                                         ', &
     '    xMO2 + HO2 --> XC + HO2                                                                         ', &
     '    xMO2 + NO3 --> NO3 + MO2                                                                        ', &
     '    xMO2 + MO2 --> 0.5 XC + 1.5 MO2                                                                 ', &
     '   xMO2 + MO2m --> 0.5 XC + MO2m + 0.5 MO2                                                          ', &
     '   xMO2 + RO2C --> 0.5 XC + RO2C + 0.5 MO2                                                          ', &
     '  xMO2 + RO2XC --> 0.5 XC + 0.5 MO2 + RO2XC                                                         ', &
     '   xMO2 + MCO3 --> MCO3 + MO2                                                                       ', &
     '   xMO2 + RCO3 --> MO2 + RCO3                                                                       ', &
     '  xMO2 + BZCO3 --> BZCO3 + MO2                                                                      ', &
     '  xMO2 + MACO3 --> MO2 + MACO3                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
     '    xMCO3 + NO --> MCO3 + NO                                                                        ', &
     '   xMCO3 + HO2 --> 2 XC + HO2                                                                       ', &
     '   xMCO3 + NO3 --> NO3 + MCO3                                                                       ', &
     '   xMCO3 + MO2 --> XC + 0.5 MCO3 + MO2                                                              ', &
     '  xMCO3 + MO2m --> XC + MO2m + 0.5 MCO3                                                             ', &
     '  xMCO3 + RO2C --> XC + 0.5 MCO3 + RO2C                                                             ', &
     ' xMCO3 + RO2XC --> XC + 0.5 MCO3 + RO2XC                                                            ', &
     '  xMCO3 + MCO3 --> 2 MCO3                                                                           ', &
     '  xMCO3 + RCO3 --> MCO3 + RCO3                                                                      ', &
     ' xMCO3 + BZCO3 --> BZCO3 + MCO3                                                                     ', &
     ' xMCO3 + MACO3 --> MCO3 + MACO3                                                                     ', &
     '    xRCO3 + NO --> NO + RCO3                                                                        ', &
     '   xRCO3 + HO2 --> 3 XC + HO2                                                                       ', &
     '   xRCO3 + NO3 --> NO3 + RCO3                                                                       ', &
     '   xRCO3 + MO2 --> 1.5 XC + MO2 + 0.5 RCO3                                                          ', &
     '  xRCO3 + MO2m --> 1.5 XC + MO2m + 0.5 RCO3                                                         ', &
     '  xRCO3 + RO2C --> 1.5 XC + RO2C + 0.5 RCO3                                                         ', &
     ' xRCO3 + RO2XC --> 1.5 XC + 0.5 RCO3 + RO2XC                                                        ', &
     '  xRCO3 + MCO3 --> MCO3 + RCO3                                                                      ', &
     '  xRCO3 + RCO3 --> 2 RCO3                                                                           ', &
     ' xRCO3 + BZCO3 --> BZCO3 + RCO3                                                                     ', &
     ' xRCO3 + MACO3 --> RCO3 + MACO3                                                                     ', &
     '   xMACO3 + NO --> NO + MACO3                                                                       ', &
     '  xMACO3 + HO2 --> 4 XC + HO2                                                                       ', &
     '  xMACO3 + NO3 --> NO3 + MACO3                                                                      ', &
     '  xMACO3 + MO2 --> 2 XC + MO2 + 0.5 MACO3                                                           ', &
     ' xMACO3 + MO2m --> 2 XC + MO2m + 0.5 MACO3                                                          ', &
     ' xMACO3 + RO2C --> 2 XC + RO2C + 0.5 MACO3                                                          ', &
     'xMACO3 + RO2XC --> 2 XC + 0.5 MACO3 + RO2XC                                                         ', &
     ' xMACO3 + MCO3 --> MCO3 + MACO3                                                                     ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
     ' xMACO3 + RCO3 --> RCO3 + MACO3                                                                     ', &
     'xMACO3 + BZCO3 --> BZCO3 + MACO3                                                                    ', &
     'xMACO3 + MACO3 --> 2 MACO3                                                                          ', &
     '      xCO + NO --> CO + NO                                                                          ', &
     '     xCO + HO2 --> XC + HO2                                                                         ', &
     '     xCO + NO3 --> CO + NO3                                                                         ', &
     '     xCO + MO2 --> 0.5 XC + 0.5 CO + MO2                                                            ', &
     '    xCO + MO2m --> 0.5 XC + 0.5 CO + MO2m                                                           ', &
     '    xCO + RO2C --> 0.5 XC + 0.5 CO + RO2C                                                           ', &
     '   xCO + RO2XC --> 0.5 XC + 0.5 CO + RO2XC                                                          ', &
     '    xCO + MCO3 --> CO + MCO3                                                                        ', &
     '    xCO + RCO3 --> CO + RCO3                                                                        ', &
     '   xCO + BZCO3 --> CO + BZCO3                                                                       ', &
     '   xCO + MACO3 --> CO + MACO3                                                                       ', &
     '    xCH2O + NO --> CH2O + NO                                                                        ', &
     '   xCH2O + HO2 --> XC + HO2                                                                         ', &
     '   xCH2O + NO3 --> CH2O + NO3                                                                       ', &
     '   xCH2O + MO2 --> 0.5 XC + 0.5 CH2O + MO2                                                          ', &
     '  xCH2O + MO2m --> 0.5 XC + 0.5 CH2O + MO2m                                                         ', &
     '  xCH2O + RO2C --> 0.5 XC + 0.5 CH2O + RO2C                                                         ', &
     ' xCH2O + RO2XC --> 0.5 XC + 0.5 CH2O + RO2XC                                                        ', &
     '  xCH2O + MCO3 --> CH2O + MCO3                                                                      ', &
     '  xCH2O + RCO3 --> CH2O + RCO3                                                                      ', &
     ' xCH2O + BZCO3 --> CH2O + BZCO3                                                                     ', &
     ' xCH2O + MACO3 --> CH2O + MACO3                                                                     ', &
     '    xALD2 + NO --> ALD2 + NO                                                                        ', &
     '   xALD2 + HO2 --> 2 XC + HO2                                                                       ', &
     '   xALD2 + NO3 --> ALD2 + NO3                                                                       ', &
     '   xALD2 + MO2 --> XC + 0.5 ALD2 + MO2                                                              ', &
     '  xALD2 + MO2m --> XC + 0.5 ALD2 + MO2m                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
     '  xALD2 + RO2C --> XC + 0.5 ALD2 + RO2C                                                             ', &
     ' xALD2 + RO2XC --> XC + 0.5 ALD2 + RO2XC                                                            ', &
     '  xALD2 + MCO3 --> ALD2 + MCO3                                                                      ', &
     '  xALD2 + RCO3 --> ALD2 + RCO3                                                                      ', &
     ' xALD2 + BZCO3 --> ALD2 + BZCO3                                                                     ', &
     ' xALD2 + MACO3 --> ALD2 + MACO3                                                                     ', &
     '    xRCHO + NO --> RCHO + NO                                                                        ', &
     '   xRCHO + HO2 --> 3 XC + HO2                                                                       ', &
     '   xRCHO + NO3 --> RCHO + NO3                                                                       ', &
     '   xRCHO + MO2 --> 1.5 XC + 0.5 RCHO + MO2                                                          ', &
     '  xRCHO + MO2m --> 1.5 XC + 0.5 RCHO + MO2m                                                         ', &
     '  xRCHO + RO2C --> 1.5 XC + 0.5 RCHO + RO2C                                                         ', &
     ' xRCHO + RO2XC --> 1.5 XC + 0.5 RCHO + RO2XC                                                        ', &
     '  xRCHO + MCO3 --> RCHO + MCO3                                                                      ', &
     '  xRCHO + RCO3 --> RCHO + RCO3                                                                      ', &
     ' xRCHO + BZCO3 --> RCHO + BZCO3                                                                     ', &
     ' xRCHO + MACO3 --> RCHO + MACO3                                                                     ', &
     '    xACET + NO --> ACET + NO                                                                        ', &
     '   xACET + HO2 --> 3 XC + HO2                                                                       ', &
     '   xACET + NO3 --> ACET + NO3                                                                       ', &
     '   xACET + MO2 --> 1.5 XC + 0.5 ACET + MO2                                                          ', &
     '  xACET + MO2m --> 1.5 XC + 0.5 ACET + MO2m                                                         ', &
     '  xACET + RO2C --> 1.5 XC + 0.5 ACET + RO2C                                                         ', &
     ' xACET + RO2XC --> 1.5 XC + 0.5 ACET + RO2XC                                                        ', &
     '  xACET + MCO3 --> ACET + MCO3                                                                      ', &
     '  xACET + RCO3 --> ACET + RCO3                                                                      ', &
     ' xACET + BZCO3 --> ACET + BZCO3                                                                     ', &
     ' xACET + MACO3 --> ACET + MACO3                                                                     ', &
     '     xMEK + NO --> MEK + NO                                                                         ', &
     '    xMEK + HO2 --> 4 XC + HO2                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
     '    xMEK + NO3 --> MEK + NO3                                                                        ', &
     '    xMEK + MO2 --> 2 XC + 0.5 MEK + MO2                                                             ', &
     '   xMEK + MO2m --> 2 XC + 0.5 MEK + MO2m                                                            ', &
     '   xMEK + RO2C --> 2 XC + 0.5 MEK + RO2C                                                            ', &
     '  xMEK + RO2XC --> 2 XC + 0.5 MEK + RO2XC                                                           ', &
     '   xMEK + MCO3 --> MEK + MCO3                                                                       ', &
     '   xMEK + RCO3 --> MEK + RCO3                                                                       ', &
     '  xMEK + BZCO3 --> MEK + BZCO3                                                                      ', &
     '  xMEK + MACO3 --> MEK + MACO3                                                                      ', &
     '   xPROD2 + NO --> PROD2 + NO                                                                       ', &
     '  xPROD2 + HO2 --> 6 XC + HO2                                                                       ', &
     '  xPROD2 + NO3 --> PROD2 + NO3                                                                      ', &
     '  xPROD2 + MO2 --> 3 XC + 0.5 PROD2 + MO2                                                           ', &
     ' xPROD2 + MO2m --> 3 XC + 0.5 PROD2 + MO2m                                                          ', &
     ' xPROD2 + RO2C --> 3 XC + 0.5 PROD2 + RO2C                                                          ', &
     'xPROD2 + RO2XC --> 3 XC + 0.5 PROD2 + RO2XC                                                         ', &
     ' xPROD2 + MCO3 --> PROD2 + MCO3                                                                     ', &
     ' xPROD2 + RCO3 --> PROD2 + RCO3                                                                     ', &
     'xPROD2 + BZCO3 --> PROD2 + BZCO3                                                                    ', &
     'xPROD2 + MACO3 --> PROD2 + MACO3                                                                    ', &
     '    xMGLY + NO --> PMGLY + MGLY + NO                                                                ', &
     '   xMGLY + HO2 --> 3 XC + HO2                                                                       ', &
     '   xMGLY + NO3 --> PMGLY + MGLY + NO3                                                               ', &
     '   xMGLY + MO2 --> 1.5 XC + 0.5 PMGLY + 0.5 MGLY + MO2                                              ', &
     '  xMGLY + MO2m --> 1.5 XC + 0.5 PMGLY + 0.5 MGLY + MO2m                                             ', &
     '  xMGLY + RO2C --> 1.5 XC + 0.5 PMGLY + 0.5 MGLY + RO2C                                             ', &
     ' xMGLY + RO2XC --> 1.5 XC + 0.5 PMGLY + 0.5 MGLY + RO2XC                                            ', &
     '  xMGLY + MCO3 --> PMGLY + MGLY + MCO3                                                              ', &
     '  xMGLY + RCO3 --> PMGLY + MGLY + RCO3                                                              ', &
     ' xMGLY + BZCO3 --> PMGLY + MGLY + BZCO3                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &
     ' xMGLY + MACO3 --> PMGLY + MGLY + MACO3                                                             ', &
     '    xBACL + NO --> BACL + NO                                                                        ', &
     '   xBACL + HO2 --> 4 XC + HO2                                                                       ', &
     '   xBACL + NO3 --> BACL + NO3                                                                       ', &
     '   xBACL + MO2 --> 2 XC + 0.5 BACL + MO2                                                            ', &
     '  xBACL + MO2m --> 2 XC + 0.5 BACL + MO2m                                                           ', &
     '  xBACL + RO2C --> 2 XC + 0.5 BACL + RO2C                                                           ', &
     ' xBACL + RO2XC --> 2 XC + 0.5 BACL + RO2XC                                                          ', &
     '  xBACL + MCO3 --> BACL + MCO3                                                                      ', &
     '  xBACL + RCO3 --> BACL + RCO3                                                                      ', &
     ' xBACL + BZCO3 --> BACL + BZCO3                                                                     ', &
     ' xBACL + MACO3 --> BACL + MACO3                                                                     ', &
     '    xBALD + NO --> BALD + NO                                                                        ', &
     '   xBALD + HO2 --> 7 XC + HO2                                                                       ', &
     '   xBALD + NO3 --> BALD + NO3                                                                       ', &
     '   xBALD + MO2 --> 3.5 XC + 0.5 BALD + MO2                                                          ', &
     '  xBALD + MO2m --> 3.5 XC + 0.5 BALD + MO2m                                                         ', &
     '  xBALD + RO2C --> 3.5 XC + 0.5 BALD + RO2C                                                         ', &
     ' xBALD + RO2XC --> 3.5 XC + 0.5 BALD + RO2XC                                                        ', &
     '  xBALD + MCO3 --> BALD + MCO3                                                                      ', &
     '  xBALD + RCO3 --> BALD + RCO3                                                                      ', &
     ' xBALD + BZCO3 --> BALD + BZCO3                                                                     ', &
     ' xBALD + MACO3 --> BALD + MACO3                                                                     ', &
     '    xAFG1 + NO --> AFG1 + NO                                                                        ', &
     '   xAFG1 + HO2 --> 5 XC + HO2                                                                       ', &
     '   xAFG1 + NO3 --> AFG1 + NO3                                                                       ', &
     '   xAFG1 + MO2 --> 2.5 XC + 0.5 AFG1 + MO2                                                          ', &
     '  xAFG1 + MO2m --> 2.5 XC + 0.5 AFG1 + MO2m                                                         ', &
     '  xAFG1 + RO2C --> 2.5 XC + 0.5 AFG1 + RO2C                                                         ', &
     ' xAFG1 + RO2XC --> 2.5 XC + 0.5 AFG1 + RO2XC                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &
     '  xAFG1 + MCO3 --> AFG1 + MCO3                                                                      ', &
     '  xAFG1 + RCO3 --> AFG1 + RCO3                                                                      ', &
     ' xAFG1 + BZCO3 --> AFG1 + BZCO3                                                                     ', &
     ' xAFG1 + MACO3 --> AFG1 + MACO3                                                                     ', &
     '    xAFG2 + NO --> AFG2 + NO                                                                        ', &
     '   xAFG2 + HO2 --> 5 XC + HO2                                                                       ', &
     '   xAFG2 + NO3 --> AFG2 + NO3                                                                       ', &
     '   xAFG2 + MO2 --> 2.5 XC + 0.5 AFG2 + MO2                                                          ', &
     '  xAFG2 + MO2m --> 2.5 XC + 0.5 AFG2 + MO2m                                                         ', &
     '  xAFG2 + RO2C --> 2.5 XC + 0.5 AFG2 + RO2C                                                         ', &
     ' xAFG2 + RO2XC --> 2.5 XC + 0.5 AFG2 + RO2XC                                                        ', &
     '  xAFG2 + MCO3 --> AFG2 + MCO3                                                                      ', &
     '  xAFG2 + RCO3 --> AFG2 + RCO3                                                                      ', &
     ' xAFG2 + BZCO3 --> AFG2 + BZCO3                                                                     ', &
     ' xAFG2 + MACO3 --> AFG2 + MACO3                                                                     ', &
     '    xAFG3 + NO --> NO + AFG3                                                                        ', &
     '   xAFG3 + HO2 --> 7 XC + HO2                                                                       ', &
     '   xAFG3 + NO3 --> NO3 + AFG3                                                                       ', &
     '   xAFG3 + MO2 --> 3.5 XC + MO2 + 0.5 AFG3                                                          ', &
     '  xAFG3 + MO2m --> 3.5 XC + MO2m + 0.5 AFG3                                                         ', &
     '  xAFG3 + RO2C --> 3.5 XC + RO2C + 0.5 AFG3                                                         ', &
     ' xAFG3 + RO2XC --> 3.5 XC + 0.5 AFG3 + RO2XC                                                        ', &
     '  xAFG3 + MCO3 --> MCO3 + AFG3                                                                      ', &
     '  xAFG3 + RCO3 --> RCO3 + AFG3                                                                      ', &
     ' xAFG3 + BZCO3 --> BZCO3 + AFG3                                                                     ', &
     ' xAFG3 + MACO3 --> MACO3 + AFG3                                                                     ', &
     '    xAFG4 + NO --> AFG4 + NO                                                                        ', &
     '   xAFG4 + HO2 --> 5 XC + HO2                                                                       ', &
     '   xAFG4 + NO3 --> AFG4 + NO3                                                                       ', &
     '   xAFG4 + MO2 --> 2.5 XC + 0.5 AFG4 + MO2                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ &
     '  xAFG4 + MO2m --> 2.5 XC + 0.5 AFG4 + MO2m                                                         ', &
     '  xAFG4 + RO2C --> 2.5 XC + 0.5 AFG4 + RO2C                                                         ', &
     ' xAFG4 + RO2XC --> 2.5 XC + 0.5 AFG4 + RO2XC                                                        ', &
     '  xAFG4 + MCO3 --> AFG4 + MCO3                                                                      ', &
     '  xAFG4 + RCO3 --> AFG4 + RCO3                                                                      ', &
     ' xAFG4 + BZCO3 --> AFG4 + BZCO3                                                                     ', &
     ' xAFG4 + MACO3 --> AFG4 + MACO3                                                                     ', &
     '    xMACR + NO --> MACR + NO                                                                        ', &
     '   xMACR + HO2 --> 4 XC + HO2                                                                       ', &
     '   xMACR + NO3 --> MACR + NO3                                                                       ', &
     '   xMACR + MO2 --> 2 XC + 0.5 MACR + MO2                                                            ', &
     '  xMACR + MO2m --> 2 XC + 0.5 MACR + MO2m                                                           ', &
     '  xMACR + RO2C --> 2 XC + 0.5 MACR + RO2C                                                           ', &
     ' xMACR + RO2XC --> 2 XC + 0.5 MACR + RO2XC                                                          ', &
     '  xMACR + MCO3 --> MACR + MCO3                                                                      ', &
     '  xMACR + RCO3 --> MACR + RCO3                                                                      ', &
     ' xMACR + BZCO3 --> MACR + BZCO3                                                                     ', &
     ' xMACR + MACO3 --> MACR + MACO3                                                                     ', &
     '     xMVK + NO --> MVK + NO                                                                         ', &
     '    xMVK + HO2 --> 4 XC + HO2                                                                       ', &
     '    xMVK + NO3 --> MVK + NO3                                                                        ', &
     '    xMVK + MO2 --> 2 XC + 0.5 MVK + MO2                                                             ', &
     '   xMVK + MO2m --> 2 XC + 0.5 MVK + MO2m                                                            ', &
     '   xMVK + RO2C --> 2 XC + 0.5 MVK + RO2C                                                            ', &
     '  xMVK + RO2XC --> 2 XC + 0.5 MVK + RO2XC                                                           ', &
     '   xMVK + MCO3 --> MVK + MCO3                                                                       ', &
     '   xMVK + RCO3 --> MVK + RCO3                                                                       ', &
     '  xMVK + BZCO3 --> MVK + BZCO3                                                                      ', &
     '  xMVK + MACO3 --> MVK + MACO3                                                                      ', &
     '    xIPRD + NO --> IPRD + NO                                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ &
     '   xIPRD + HO2 --> 5 XC + HO2                                                                       ', &
     '   xIPRD + NO3 --> IPRD + NO3                                                                       ', &
     '   xIPRD + MO2 --> 2.5 XC + 0.5 IPRD + MO2                                                          ', &
     '  xIPRD + MO2m --> 2.5 XC + 0.5 IPRD + MO2m                                                         ', &
     '  xIPRD + RO2C --> 2.5 XC + 0.5 IPRD + RO2C                                                         ', &
     ' xIPRD + RO2XC --> 2.5 XC + 0.5 IPRD + RO2XC                                                        ', &
     '  xIPRD + MCO3 --> IPRD + MCO3                                                                      ', &
     '  xIPRD + RCO3 --> IPRD + RCO3                                                                      ', &
     ' xIPRD + BZCO3 --> BZCO3 + IPRD                                                                     ', &
     ' xIPRD + MACO3 --> IPRD + MACO3                                                                     ', &
     '    xRNO3 + NO --> RNO3 + NO                                                                        ', &
     '   xRNO3 + HO2 --> 6 XC + XN + HO2                                                                  ', &
     '   xRNO3 + NO3 --> RNO3 + NO3                                                                       ', &
     '   xRNO3 + MO2 --> 0.5 RNO3 + 3 XC + 0.5 XN + MO2                                                   ', &
     '  xRNO3 + MO2m --> 0.5 RNO3 + 3 XC + 0.5 XN + MO2m                                                  ', &
     '  xRNO3 + RO2C --> 0.5 RNO3 + 3 XC + 0.5 XN + RO2C                                                  ', &
     ' xRNO3 + RO2XC --> 0.5 RNO3 + 3 XC + 0.5 XN + RO2XC                                                 ', &
     '  xRNO3 + MCO3 --> RNO3 + MCO3                                                                      ', &
     '  xRNO3 + RCO3 --> RNO3 + RCO3                                                                      ', &
     ' xRNO3 + BZCO3 --> RNO3 + BZCO3                                                                     ', &
     ' xRNO3 + MACO3 --> RNO3 + MACO3                                                                     ', &
     '    yROOH + NO --> NO                                                                               ', &
     '   yROOH + HO2 --> - -3 XC + ROOH + HO2                                                             ', &
     '   yROOH + NO3 --> NO3                                                                              ', &
     '   yROOH + MO2 --> - -2 XC + 0.5 MEK + MO2                                                          ', &
     '  yROOH + MO2m --> - -2 XC + 0.5 MEK + MO2m                                                         ', &
     '  yROOH + RO2C --> - -2 XC + 0.5 MEK + RO2C                                                         ', &
     ' yROOH + RO2XC --> - -2 XC + 0.5 MEK + RO2XC                                                        ', &
     '  yROOH + MCO3 --> MCO3                                                                             ', &
     '  yROOH + RCO3 --> RCO3                                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ &
     ' yROOH + BZCO3 --> BZCO3                                                                            ', &
     ' yROOH + MACO3 --> MACO3                                                                            ', &
     '   yR6OOH + NO --> NO                                                                               ', &
     '  yR6OOH + HO2 --> - -6 XC + R6OOH + HO2                                                            ', &
     '  yR6OOH + NO3 --> NO3                                                                              ', &
     '  yR6OOH + MO2 --> - -3 XC + 0.5 PROD2 + MO2                                                        ', &
     ' yR6OOH + MO2m --> - -3 XC + 0.5 PROD2 + MO2m                                                       ', &
     ' yR6OOH + RO2C --> - -3 XC + 0.5 PROD2 + RO2C                                                       ', &
     'yR6OOH + RO2XC --> - -3 XC + 0.5 PROD2 + RO2XC                                                      ', &
     ' yR6OOH + MCO3 --> MCO3                                                                             ', &
     ' yR6OOH + RCO3 --> RCO3                                                                             ', &
     'yR6OOH + BZCO3 --> BZCO3                                                                            ', &
     'yR6OOH + MACO3 --> MACO3                                                                            ', &
     '   yRAOOH + NO --> NO                                                                               ', &
     '  yRAOOH + HO2 --> - -8 XC + RAOOH + HO2                                                            ', &
     '  yRAOOH + NO3 --> NO3                                                                              ', &
     '  yRAOOH + MO2 --> - -3 XC + 0.5 PROD2 + MO2                                                        ', &
     ' yRAOOH + MO2m --> - -3 XC + 0.5 PROD2 + MO2m                                                       ', &
     ' yRAOOH + RO2C --> - -3 XC + 0.5 PROD2 + RO2C                                                       ', &
     'yRAOOH + RO2XC --> - -3 XC + 0.5 PROD2 + RO2XC                                                      ', &
     ' yRAOOH + MCO3 --> MCO3                                                                             ', &
     ' yRAOOH + RCO3 --> RCO3                                                                             ', &
     'yRAOOH + BZCO3 --> BZCO3                                                                            ', &
     'yRAOOH + MACO3 --> MACO3                                                                            ', &
     '    zRNO3 + NO --> RNO3 - XN + NO                                                                   ', &
     '   zRNO3 + HO2 --> 6 XC + HO2                                                                       ', &
     '   zRNO3 + NO3 --> PROD2 + NO3 + HO2                                                                ', &
     '   zRNO3 + MO2 --> 3 XC + 0.5 PROD2 + MO2 + 0.5 HO2                                                 ', &
     '  zRNO3 + MO2m --> 3 XC + 0.5 PROD2 + MO2m + 0.5 HO2                                                ', &
     '  zRNO3 + RO2C --> 3 XC + 0.5 PROD2 + RO2C + 0.5 HO2                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ &
     ' zRNO3 + RO2XC --> 3 XC + 0.5 PROD2 + 0.5 HO2 + RO2XC                                               ', &
     '  zRNO3 + MCO3 --> PROD2 + MCO3 + HO2                                                               ', &
     '  zRNO3 + RCO3 --> PROD2 + RCO3 + HO2                                                               ', &
     ' zRNO3 + BZCO3 --> PROD2 + BZCO3 + HO2                                                              ', &
     ' zRNO3 + MACO3 --> PROD2 + MACO3 + HO2                                                              ', &
     '    xGLYX + NO --> PGLYX + GLYX + NO                                                                ', &
     '   xGLYX + HO2 --> 2 XC + HO2                                                                       ', &
     '   xGLYX + NO3 --> PGLYX + GLYX + NO3                                                               ', &
     '   xGLYX + MO2 --> XC + 0.5 PGLYX + 0.5 GLYX + MO2                                                  ', &
     '  xGLYX + MO2m --> XC + 0.5 PGLYX + 0.5 GLYX + MO2m                                                 ', &
     '  xGLYX + RO2C --> XC + 0.5 PGLYX + 0.5 GLYX + RO2C                                                 ', &
     ' xGLYX + RO2XC --> XC + 0.5 PGLYX + 0.5 GLYX + RO2XC                                                ', &
     '  xGLYX + MCO3 --> PGLYX + GLYX + MCO3                                                              ', &
     '  xGLYX + RCO3 --> PGLYX + GLYX + RCO3                                                              ', &
     ' xGLYX + BZCO3 --> PGLYX + GLYX + BZCO3                                                             ', &
     ' xGLYX + MACO3 --> PGLYX + GLYX + MACO3                                                             ', &
     '          ALD2 --> 0.88 CO + 0.12 MCO3 + 0.88 MO2 + HO2                                             ', &
     '           PAN --> 0.3 NO3 + 0.7 NO2 + 0.7 MCO3 + 0.3 MO2                                           ', &
     '          RCHO --> ETO2 + CO + HO2                                                                  ', &
     '          ACET --> MCO3 + MO2                                                                       ', &
     '          ACET --> CO + 2 MO2                                                                       ', &
     '           MEK --> 0.85 ETO2 + 0.85 MCO3 + 0.15 MO2 + 0.15 RCO3                                     ', &
     '          GLYC --> 0.1 MOH + 0.9 CH2O + CO + 0.07 OH + 1.73 HO2                                     ', &
     '          GLYX --> 2 CO + 2 HO2                                                                     ', &
     '          GLYX --> H2 + 2 CO                                                                        ', &
     '          GLYX --> CH2O + CO                                                                        ', &
     '          MGLY --> CO + MCO3 + HO2                                                                  ', &
     '           MVK --> PRPE + CO                                                                        ', &
     '           MVK --> CH2O + CO + MCO3 + HO2                                                           ', &
     '           MVK --> MO2 + RCO3                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ &
     '          MACR --> CH2O + CO + MCO3 + HO2                                                           ', &
     '           HAC --> CH2O + MCO3 + HO2                                                                ', &
     '          INPN --> RCHO + NO2 + OH + HO2                                                            ', &
     '          PRPN --> RCHO + NO2 + OH + HO2                                                            ', &
     '           ETP --> ALD2 + OH + HO2                                                                  ', &
     '          RA3P --> RCHO + OH + HO2                                                                  ', &
     '          RB3P --> ACET + OH + HO2                                                                  ', &
     '           R4P --> RCHO + OH + HO2                                                                  ', &
     '            PP --> CH2O + ALD2 + OH + HO2                                                           ', &
     '            RP --> ALD2 + OH + HO2                                                                  ', &
     '          RIPA --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPB --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPD --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '           IAP --> 0.19 H2 + 0.26 GLYC + 0.36 HAC + 0.58 MGLY + 0.67 CO ... etc.                    ', &
     '          ISNP --> RCHO + NO2 + OH + HO2                                                            ', &
     '           VRP --> 0.7 GLYC + 0.3 CH2O + 0.3 MGLY + 0.7 MCO3 + OH + 0.3 HO2 ... etc.                ', &
     '           MRP --> HAC + 0.5 CH2O + 0.5 CO + OH + HO2                                               ', &
     '          MAOP --> CH2O + MCO3 + OH                                                                 ', &
     '          R4N2 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '           MAP --> OH + MO2                                                                         ', &
     '         MACRN --> HAC + 0.5 CH2O + MGLY + 0.5 CO + NO2 + HO2                                       ', &
     '          MVKN --> GLYC + NO2 + MCO3                                                                ', &
     '        ISOPNB --> HC5 + NO2 + HO2                                                                  ', &
     '        ISOPND --> HC5 + NO2 + HO2                                                                  ', &
     '        PROPNN --> CH2O + CO + NO2 + MO2                                                            ', &
     '         ATOOH --> CH2O + MCO3 + OH                                                                 ', &
     '          IPMN --> 0.4 CO2 + 0.6 IMAO3 + 0.4 CH2O + 0.4 NO3 + 0.6 NO2 + 0.4 MCO3 ... etc.           ', &
     '         ETHLN --> CH2O + CO + NO2 + HO2                                                            ', &
     '          DHDC --> GLYX + MGLY + 2 OH                                                               ', &
     '         HPALD --> 0.11 GLYC + 0.39 HAC + 0.5 MGLY + 1.89 CO + 0.11 MCO3 ... etc.                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(13) :: EQN_NAMES_27 = (/ &
     '          ISN1 --> 0.5 GLYC + 0.5 HAC + 0.25 GLYX + CH2O + 0.25 MGLY + NO2 ... etc.                 ', &
     '          PBZN --> 0.4 CO2 + 0.4 BZO + 0.6 BZCO3 + 0.4 NO3 + 0.6 NO2 + 0.4 RO2C ... etc.            ', &
     '          IPRD --> 0.233 XC + PIPRD + 0.3 CH2O + 0.467 ALD2 + 0.233 MEK ... etc.                    ', &
     '         PROD2 --> 0.091 XC + PPROD2 + 0.163 xALD2 + 0.303 xCH2O + 0.78 xRCHO ... etc.              ', &
     '          BACL --> PBACL + 2 MCO3                                                                   ', &
     '          NPHE --> 6 XC + PNPHE + HNO2                                                              ', &
     '          NPHE --> 6 XC + XN + PNPHE                                                                ', &
     '          BALD --> 7 XC + PBALD                                                                     ', &
     '          AFG1 --> 0.217 XC + 0.195 PGLYX + PAFG1 + 0.195 GLYX + 0.305 MGLY ... etc.                ', &
     '          AFG2 --> - XC + PAFG2 + PROD2                                                             ', &
     '         RAOOH --> 0.5 XC + 0.5 PGLYX + PRAOOH + 0.5 GLYX + 0.5 MGLY + 0.5 AFG2 ... etc.            ', &
     '    R6OOH + OH --> 0.017 XC + PR6OOH + 0.041 xOH + 0.16 yROOH + 0.084 xPROD2 ... etc.               ', &
     '         R6OOH --> 0.017 XC + 0.698 xPROD2 + 0.026 xALD2 + 0.058 xRCHO ... etc.                     ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(823) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &
    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &
    EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23, EQN_NAMES_24, &
    EQN_NAMES_25, EQN_NAMES_26, EQN_NAMES_27 /)

! INLINED global variables

! End INLINED global variables


END MODULE aromatics_kpp_Monitor
